#!/usr/bin/perl
#
#
open(TRAIN,$ARGV[0]);
while($line=<TRAIN>) {
	chomp($line);
	$trainSen{$line}=1;
	$line=~s/^\s*//g; $line=~s/\s*$//g;
}
close(TRAIN);

$senNum=1;
open(TEST,$ARGV[1]);
while($line=<TEST>) {
	chomp($line);
	$line=~s/^\s*//g; $line=~s/\s*$//g;
	if(! $trainSen{$line}) {
		print $senNum."\n";
	}
	$senNum++;
}
close(TEST);
